home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Controls
/
Visual Basic Controls.iso
/
vbcontrol
/
sregexpf
/
buildnum.vbs
< prev
next >
Wrap
Text File
|
1998-05-02
|
939b
|
31 lines
' Check parameters
if WScript.Arguments.Count < 1 then
WScript.Echo "Version Data File not given"
WScript.Quit
end if
' Update version info
dim ver
set ver = WScript.CreateObject("ProjectBuilder.Versioner")
ver.VersionFile = WScript.Arguments.Item(0)
ver.IncrementBuildNum
WScript.echo "Updating " + ver.VersionFile + "..."
ver.UpdateVersionFile
' Create file which is included into the RC2 file
dim fs, f, fileName
set fs = WScript.CreateObject("Scripting.FileSystemObject")
fileName = ver.VersionFile + "h"
if fs.FileExists(fileName) then
' Delete old file
set f = fs.GetFile(fileName)
If f.Attributes and 1 then f.Attributes = f.Attributes - 1
WScript.echo "Deleting " + fileName + "..."
fs.DeleteFile fileName, true
end if
WScript.echo "Updating " + fileName + "..."
fs.CopyFile ver.VersionFile, fileName
set f = fs.GetFile(fileName)
If f.Attributes and 1 then f.Attributes = f.Attributes - 1